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Vo the instructors: 

The purpose of thi to give students on a Newlett 
Packard 2069 chance to program in a second 
language, The text is designed for a wide range of abilities and 
experie in programinng. Because of this broad scope, it 
May seem either too easy or too difficult depending on 
your situation. If your class is just beginning to program, 
you may need to offer additional explanation of programnaing 
fundamentals. If your class is more experienced, you m y want 
them to read rapidly over the first sections, and possibly may 
want them to work directly from the OMSI 294 FORTRAN USER'S 
manual. 

The book is divided into three sections. The first 
deals ‘with basic FORTRAN programming. All statements and 
commands mentioned in this section are available on all. 
versions of OMSI 2689 FORTRAN. The second section is twenty 
programming problems that can be solved with the subset of 
FORTRAN language presented in the first section. The third 
section is a description of some of the additional capabilities 
of the 2898 C/F version. 

To operate the system, a series of BASIC files must be 
available on a full READ/WRITE basis in your account, with 
the followwing names and sizes: 








A 

















Name , Size 
FINFLS | ~~ 1 records y 
FINULT 8 records 
FINCOP 48 xecords 


For more information on file and sizes, check an OMSI 
2399 FORTRAN USER'S MANUAL.. 
Before your class uses this text and the FORTRAN simulator, 
we strongly suggest you become familiar with it. Every 
system has its own peculiarities, and even if you are an 
expert FORTRAN programmer, a few minutes with the terminal 
and this text, or a manual, will prove to be a great aid in 
teaching FORTRAN with this simulator. To get started, you may 
wish to use one of the sample programs either from this text or 
from the ample selection in the back of the FORTRAN manual. 
The entire OMSI 28 FORTRAN system can be run from 
paper tape, if your terminal has an automatic tape reader. 
Since the system is a series of BASIC programs, the tape 
must be structured as a BASIC data tape with each command 
or line ending with an X-OFF (control S). This allows off 
line preparation of programs. 
OMSI 2999 FORTRAN has available a series of commands 
that allow maintainance of a catalog of FORTRAN programs 
in a seperate file. A full description of these commands 
can be found in the manual. 















One Linal warning in order reca 
the BREAK key. THE BREAK KEY SHOULD BE USED ONLY DURING 
EXECUTION. The FORTRAN simulator uses S extensively, 
and pressing the break key during a listing or some other 
command may cause the loss of part or all of the current 
FORTRAN program or the current FORTRAN catalog. 
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ib 
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c) 


2a 


2b 


2c 


EXERCISES 1.2 


What will these programs do? 


SIMPLEL b) SIMPLE2 

ig FORMAT (FI. 4) 1g FORMAT (P1g.4) 
TOTAL=3.9+3.9 TOTAL=2.84+3.6 
WRITE (3,19) TOTAL STOP 
STOP END 
END 


Program will find the sum of three and three, 
print out the result, and stop. 


Program will find the sum of two and three, but 


lacking a WRITE statement, it will stop without printing 
this result out. 


What is wrong with each of these programs? 


SIMPLE3 b) SIMPLE4 
19 FORMAT (Fig. 4) 1g FORMAT (F19.4) 
TOTAL=2.9+3.8 TOTAL=2.9+3.9 
WRITE. (3,19) TOTAL WRITE (3,19) TOTAL 
STOP STOP Y 
i END 
SIMPLES 


TOTAL=2.9+3.9 
WRITE (3,18) TOTAL 
1g FORMAT (F1g.4) 
STOP 
END 


The program has no END statement. 


TOTAL=2.9+3.8 is not tabbed correctly; it should start 
in column seven, 


The FORMAT statement does not occur at the first of the 
program, 





b) 


c) 


a) 


e) 


i) 


g) 


h) 


EXERCISES 





What will the following commands do when typed in to the monitor 
after it has printed a period? 





mand will cause the computer to do the current FORTRAN 


program, 


RUN 

This is not a FORTRAN command, it is a BASIC command, Typed 
in to the monitor it will do nothing, 

AY 


AY returns the user to the monitor from the LOAD mode, but 
typed to the monitor it will not do anything, 


FORMAT 

FORMAT is a statement type, not a command, It will also do 
nothing, 

LIsSg 


LIST causes the text of the current FORTRAN Program to 
be printed out on the teletype, 


UJOB 
UJOB returns the user to BASIC, 


LODE 
Since a command is distinquishea by its first two letters, 


this is the same as "LOAD", Hence, it allows a FORTRAN program 
to be loaded into the computer, 


AL 


AI will tab over to the seventh column, in the LOAD mode, 
In the monitor, it will not do anything, 


LOAD, EXECUTE, and LIS? the FORTRAN program SIMPLE, 


Check your answers to problems la and 1b from exercises 1.2 
by running those programs, 


a) 


b) 


EXERCISES 1.4 


Which of these variables are legal, and if they are legal, 
what~mode are they? 


ALPHA b) OUTPUT1 c) JAM 
SOCK12 e) 12MORE £) HOT-45 
legal real b)estoo long c) legal integer 


legal real e) starts with Chiesa Bay | WE ses legal 


Which of the folowing expressions are legal, and what is 
the mode of the legal expressions? 


APA+2.3 b) 2* (IMP+1,.9) C) 2. 9**3. $+THETALS 

(2** (JOG* (34+d))) ee) 2.9% (GHH+I+0) /3 £) (IMP+ (2* INK) 

legal real b) mixed mode ¢c) "PHETAL5" is too long 
legai integer e) mixed mode £) Unbalanced parantheses 


What is the value of these FORTRAN expressions, 
given that ALPHA=2.5, BETA=5.9, IMP=4, INK=3, and 


JOGGER=1? 

'5/2*2) =4 a) 2.9**3.9+19.9/2.5-2.9%4,5 =3.8 
ALPHA+BETA =7.5 d)- (INK+2) * IMP =29 

BETA** 2.9... =398.9 £) JOGGER+IMP*INK =13 

Rewrite SIMPLE to find the value of the following : = 


expressions. 
(NOTE: Remember that TOTAL is a REAL variable). 


The product of 5 and 6 


SIMPLE 

1g FORMAT (F1g.4) 
TOTAL=5.9*6.9 
WRITE (3,19) TOTAL 
STOP 
END 


Expression b in exercise 3. 


SIMPLE 

1g FORMAT (P11. 4) 
TOTAL=2.9*3.0+19.9/2.5*4,5 
WRITE (3,18) TOTAL 
STOP 
END 





ce) 


5) 





6) 


The square root of pi (3.14159) 


SIMPLE 

1g FORMAT (P19. 4) 
TOTAL=SQRP (3.14159) 
WRITE (3,19) TOTAL 
STOP 
END 





Two squared plus three squared plus four squared. 


SIMPLE 
lg FORMAT (P1f.4) 
TOTAL=2. B**2. $43. P**2. 944. 9e*2.9 
WRITE (3,18) TOTAL 
STOP 
END 


Write a set of FORTRAN expressions that will set the 
variable BETA to be the square of the variable ALPHA, 
the variable DELTA to be the cube of ALPHA, and the 
variable TOTAL to be the sum of BETA and DELTA. Using 
the program SIMPLE as a guide for outputting TOTAL, 
set ALPHA to be 3, and run this program. 


STILLSIMPL re 
1g FORMAT (F1Q. 4) 
ALPHA=3.9 


BETA=ALPHA**2.9 
DELTA=ALPHA**3.9 
TOTAL=BETA+DELTA 
WRITE (3,19) TOTAL 
STOP 

END 


write a FORTRAN expression for the discriminant of the 
quadratic equation (d=b*-4ac, for the equation ax®+bx+c=f) . 
Using this expression, write a FORTRAN program to find the 
discriminant of 4x?-5x+6=¢. 


TOTAL=B**2.9-4.G*A*C 


DISCRIM 

1g FORMAT (F1f. 4) 
A=4.6 
B=-5.9 
c=6.9 


TOTAL=B**2.9-4.$*A*C 
WRITE (3,19) TOTAL 
STOP 

END 





EXERICSES 1.5 


1) What will the following programs print out when they are run? 
Run one and test yourself. 


a) POUTPUTL? 
1g FORMAT (' THE SUM OF',I3,' AND',I3," IS',14) 





"THE SUM OF 23 AND 45 IS 68" 
JOGGER=IMP+INK 

WRITE (3,19) IMP,INK,JOGGER 

STOP 

END 


b)  2OUTPUT2? 
1g FORMAT (F6.1,F6.2,F8.3,15) 

ALPHA=173.7 : ‘ d 
BETA=1.11 “173.7 1.11 192.897 5g99" 
GAMMA=ALPHA*BETA 
ICK=3999 +2906. 
WRITE (3,18) ALPHA,BETA,GAMMA ,ICK 
STOP 2 
END . poe niet 








c) ?OUTPUT3? 
158  FORMAT(I5,15,119) 

INK=191¢ Fi 3s : 
IMP=2829 “ 1g1g 2828 2p4g299" 
IBOBO=INK*IMP : 
WRITE (3,15) INK,IMP,IBOBO 
STOP 
END 


2) Write FORMAT specifications that will print out 
the following lines (# means a digit). 





a) b) 

ic) a) 

e) 22) 

a) FORMAT(F7.2) b) FORMAT(' FOUR TIMES FIVE = ',I3) 
c) FORMAT (I4) ad) FORMAT(F6.9,' /5 = ',F7.4) 

e) FORMAT(I2,' PLUS ',12,' = ',14) £). FORMAT(' HOWDY!!1!') 


3) Write a program which will identify and print out 
the sum, difference, product and quotient of 5.75 
and 8.59. Check your program by running it. 














MESS 
19 FORMAT (' THE SUM IS", F7.2) 
28 FORMAT (' THE DIFFERENCE IS',F7.2) 
39 FORMAL (' THE PRODUCT IS',F7.2) 
49 FORMAL (' THE QUOTIENT IS',F9.4) 
AL=5.75 
BO=8.59 





SUM=AL+BO 
WRITE (3,19) SUM 
DIFF=AL-BO 
WRITE (3,29) DIFF 
PROD=AL*BO 
WRITE (3,39) PROD 
QUOT=AL/BO 
WRITE (3,48) QUOT 
STOP 

_ END 





na 


5) 


a) 


b) 


Write 









a program that will tell the nunber of ounces 
in a number of gallons of liquid. The variable 
IGAL should be set to be the number of gallons of 
liquid, and have the program print out the number 
of gallons and ounces and identify both. 
(Hint: 1 gallon = 8 pints, and 1 lenbene es Tis, ounces) 
GALLONS 
1g FORMAT (' THERE ARE ',14,* OUNCES MND b 4, © GALLONS‘) 
IGAL= the value for IGAL goes here 
IPINT=IGAL*8 
ITOUNCE=IPINT*16 
WRITE (3,19) IOUNCE,IGAL 
STOP 
END 
Debug these programs: 
PIXITL 
1g FORMAT (I5,F7.2) either FORMAT (F7,.2,15) 
JOG=35*7 
ZILCH=63.8/9.9+1559.4 
WRITE (3,18) ZILCH,JOG or WRITE(3,19) JOG,zILCH 
SOD aa: : 
END 
PIXIT2 = > 
1g FORMAT (F7,17.2) FORMAT (17,F7.2) 


INDIA=191* 22 
AFGAN=37.2+98/,55 

WRITE (3,19) INDIA, AFGAN 
STOP 

END 


EXERCISES 1.6 


1) Write correct input data lines for each of the following 
programs, and then tell what the computer's 
output will be. Run one of them to test yourself. 


a. INPUT1? 

1g FORMAT (I17,17,17) 

2g FORMAT (' THE SUM OF YOUR THREE NUMBERS IS',18) 
READ (1,19) INP1,INP2,INP3 
INPTOT=INP1+INP2+INP3 
WRITE (3,29) INPTOT 
STOP 
END 


Data line: SPPPP5PN9P9 0519999952 
Output:THE SUM OF YOUR NUMBERS IS 153 


b) INPUT2? 

1g FORMAT (F19.3,F19%.3) 

29 FORMAT (' THE QUOTIENT OF YOUR TWO NUMBERS IS',F11.5) 
READ (1,19) DIVEND,DIVISO 
QUOTIT=DIVEND/DIVISO 
WRITE (3,28) QUOTIT 
STOP PPS 
END 3 


Data line: $899925.39009994.299 
Output: THE QUOTIENT OF YOUR NUMBERS IS 6.92381 


c) INPUT3 
19°: FORMAT (16,18,F1%.3,F12.6) 
22 FORMAT (I12,F12.5 
READ (1,19) KIPP1,KIPP2,FPISH1,FISH2 
KIPPER=KIPP1-KIPP1/KIPP2*KIPP2 
FISHER=FISH1-FISH1/FISH2*FISH2 
WRITE (3,28) KIPPER,FISHER 
STOP 
END ‘ 
Data line: AGIS2 9980895 2088320 IPEPGI32. GOEHEH 
Output: G.GIGSOH 


2) Test another of your dat 
problem by inserting it 
changing the device cod 


lines from the first 
program data and 
to read data. 


co 


oO 


The device code for program data is 2, 


ig 


ww 


3) Write data lines which when used with the given READ- 
FORMAT statements will set the variabls FROG, ICEPIK and 
SAM to the values 1.$, 193%, and 134.45, respectively. 





a) 19 FORMAT (P6.2,119,F5.1) 
READ (2,19) SAM,ICEPIK,FROG 


134.458 P999H193 9991.9 


b) 299 FORMAT (I5,F4.98,F19.3) 
READ (2,299) ICEPIK,FROG,SAM 


G1930091. 699134. 456 


c) 895 FORMAT (F19.3,F7.3,119) 7 
READ (2,805) FROG,SAM,ICEPIK 


PELLH1.PGG134, 45P9GGIPP1939 


4) Write a program to find the quotient and remainder 
of two values input from the terminal. 


QUOTSREM es 

1g FORMAT (I5,I5) : 

28 FORMAT(' THE QUOTIENT IS ',14) 

32 FORMAT (? THE REMAINDER IS ',15) 
READ (1,18) ITOP , IDOWN 
IQUOT=ITOP/IDO} 
IREMA=ITOP—IDOWN* 1QUOT 
WRITE (3, 29) LQUOT 
WRITE (3,39) IREMA 
STOP 
END 








aa 





EXERCISES 1,7 


1. What will be the output from the follo 


wing 
programs. Run one to test your answers, 
a) JUMP 
1g FORMAT (' COMPUTER AT LINE 138") 
29 FORMAT (' COMPUTER AT LINE 159") 
3g FORMAT (' COMPUTER IS ABOUT TO SOD) 
139 WRITE (3,19) 
GOTO 179 


15g WRITE (3,29) 
17g WRITE (3,39) 
STOP 
END 


COMPUTER AT LINE 13% 
COMPUTER IS ABOUT TO STOP 


b) BRANCH 


1g FORMAT (13) 
2g FORMAT (I3,' IS EVEN') 
3g FORMAT(I3,' IS ODD') 
15 READ (1,19) IPUT 
IF(ZPUT) 25,78,25 _ 
25 IF (IPUT-2* (IPUT/2)) 58,468,568 
48. WRITE(3,29) IPUT 


GOTO 15 

5g WRITE (3,32) IPuT 
GOTO 15 

718 STOP 
END 


EXEC 


LOADING FORTRAN "BRANCH! — 





EXECUTION FORTRAN 'BRANCH! 
a ee 


“13 IS ODD i 
Te a 


EXECUTION COMPLETED 


13 


ec) TABLE 











lg FORMAT (' TABLE OF FOURTH POWERS') 
( 29g FORMAT (* xX XA4") 
a) 39 iy eyed) 
WRITE (3,19) 
WRITE (3, 29) 
16% = IF(T1-25) 129,129,139 
12g. T1l=11+1 
TA=TL¥ eg wile 
WRITE (3,38) 11,14 
4 Goro 19¢ 
,, » 138. . stop ; 
# END 
sEXECUTE 
.  BOADING FORTRAN 'TABLE4! 
EXECUTION FORTRAN 'TABLE4? 
.7 


TABBE- GF FOURTH POWERS 
ZABBE OF FOURTH POWERS 





4 2 390625. 
) 26 456976 


EXECUTION COMPLETED 


ais} 


Insert an IF statement in the following program 
so that it will tell the user he is trying to 
divide by zero, and then stop. Run this modified 
program to see if it works, 


NAMELESS 
1g FORMAT (P19.4,F19.4) 
28 FORMAT (F15.6) 


3g FORMAT (' DIVISION BY ZERO') 
49 READ (1,1) DIV1,DIVv2 


insert IF(DIV2) 45,59,45 


3) 


45 DIV3=DIVL/DIV2 
WRITE (3,28) DIV3 
GOTO 4% 

5g WRITE (3,38) 
STOP 
END 


Write a program patterned after TABLE4 (problem 1c) 
to print out a table of the first 15 integers and their 
cubes. 


TABLES : 
1g FORMAT (' TABLE OF CUBES') 
22 FORMAT(' xX XA3") 
39 FORMAT (I4,' 'y7), 

Ll=g 

WRITE (3,19) 

WRITE (3, 28) 


188 IF(I1-15) 129,139,13¢ 
129 9 Tl=T1+i 
I3=11**3 
WRITE (3,38) 11,13 
GOTO 12% 
138  sTOP 
END 


14 





oe 


4) 





fc a program to tell whether a number is a multiple 
of five. The number should be read from the teletype 
and if this number is zero, the program should stop. 


MULTIPLE 

1g FORMAT (14) 

28 FORMAT (I4,' IS NOT A MULTIPLE OF’ 5') 
3g FORMAT (I4,' IS A MULTIPLE OF 5') 

49 READ (1,19) MPIV 


IF(MPIV) 58,898,598 
58 IP (MPIV-MFIV/5*5) 69,78,68 
68 WRITE (3,29) MFIV 


GOTO 49 
78 WRITE (3,3¢) MPIV 
GoTo 4% 
8g STOP 
END 
ED e 


1s 


EXRERCISES 1.8 


ri 1) List the values the variable IVAL will go through 
ww as each of these statements is "looped". Also, tell 
what is the final line of the loop. For this exercise 
IMP=1, IMP2=25. 


a) DO 28 IVAL=1,29 
: Werle al iy 2), Ble TRAM) Claire sleet WS), 
aa, US eure baie Lowa) 20% 
Final line will have line number 19, 
b) DO 4% IVAL=IMP1,IMP2 
Valussrempeoyesi 4s 5S, 6p 7) ede alGmell, 12, 23, 
) SS LAUSpica td Ul 194) Of) oT mop RO SMa yi 25. 
Final line will have line number 49. 
c) DO 199 IVAL=1f,28,2 
Values: 18, 12, 14, 16, 18, 28, 22, 24, 26, 28. 
Final line will have number 192. 
da) DO 77 IVAL=199,298,1mMP2 
Values: 1989, 125, 159, 175, 299. 
Final line will have line number 77. 


= 2) What will each of the following programs do? Write the 
sample output for the sample input, if given. 


a) LOOPL 
1g FORMAT(' IDAHO: FAMOUS POTATOES’) 
pO 415 I51,7,1 
WRITE (3,19) 
15 CONTINUE 
STOP 
END 





IDAHO: FAMOUS POTATOES 
IDAHO: FAMOUS POTATOES 
IDAHO: FAMOUS POTATOES 
IDAHO: FAMOUS POTATOES 
IDAHO: FAMOUS POTATOES 
IDAHO: FAMOUS POTATOES 
IDAHO: FAMOUS POTATOES 
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b)  LOoP2 
po 1gg FORMAT (I3) 
) 268 YFORMAT(I3,' *',13, 
( READ (1,198) IST 
So DO 398 IMUL=1,19 
IPROD=IST*IMUL 
WRITE (3,298) IST,IMUL,IPROD 
389 CONTINUE 
stoP 
END 





",16) 


Sample input- 994 


) 4* d= 4 
4* 2= 8 
4% 35 v2 
4k A= 16 
4*e  5= 28 
4% 6= 24 
4% 75 2005 
4% 8= SZ 
4*  O= SON 
4* 1g= 42 


3a) Change LOOP1 (problem 2a) to print out FAMOUS TATERS<-- 
Be _ EDAHO, six times, 


(9 TATERS 
1g FORMAT (' FAMOUS TATERS--IDAHO') 
i DOMLSy l= Gye 
WRITE (3,19) 
5; CONTINUE 
STOP 
END 


b) Change LOOP2 (problem 2b) to print out the product of 
the inputted value of all even integers less than 25. 


MORELOOP 
132 
288 | FORMAT(I3,' *',13,'="',16) 

READ (1,199) IST 

DO 389 IMUL=2,25,2 

IPROD=IST* IMUL 

WRITE (3,19) IST,IMUL,IPROD 
398, CONTINUE 

STOP 

END 
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Programming Problems 


The programs presented in this section are possible 
solutions for the programming problems in the text. All 
programs that are specified as C/F only will only run on 
OMSI 2920C/F FORTRAN. All other programs will run on eit- 
her version. 

@here are many possible solutions for these problems, 
the ones that are presented here are not necessarily the 
fastest or the best. Students should be encouraged to find 
their own methods for solving the problems, 
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1) Write a FORTRAN program to find the greatest 
common factor of two two-digit integer 


S. Values 
should be read from the teleprinter. 





19 FORMAT (I2,12) 

28 FORMAT (' GCF OF ',12,' AND ',12,' Ig ',12) 
READ (1,1) IFACL, IFAC2 
Ger 
DO 5% I=2,IFACL 
IF(IFAC1-IFAC1/I*I) 5%,38,59 

39 . IF(IFAC2-IFAC2/I*I) 59,49,5¢ 

a 42 Eecr=u0 

59 CONTINUE 
WRITE (3,29) IFAC], IFAC2,IGCF 
STOP i‘ 
END fs 


hype 





fractions to their simplest 
input as the numerator 





2 was 


o and §4 input as the demoninator, the computer 
{ would printout "i 2/\ d=) 17g 
Sd 
REDUCE 
1g FORMAT oe) 
29 BORMAT(E2;" 7 Ur, \%= "0200/9. 12) 
9D READ (1,19) IN1,IN2 
IF(IN2) 119,288,119 
11g . IGcr=1 
DO 19 J=2,INL 
Ir (IN1-IN1/J*3) 199,129,199 
129 IF (IN2--IN2/d*J) 199,139,199 
138 IGCF=a0 
189 CONTINUE 
IPI=IN1/IGCF = iS 
IT2=IN2/IGCF 
a WRITE (3,28) INL,IN2,IT1,1T2 
e) GoTo 9¢ 
288° stop 
END 
i> 
So 


21 


3) 


Write a program to add two fractions, reduce their 
sum, and print the result out in fractional form. 
Sample output might be "1/ 64+ 1/ 2= 2/ 3", 





FRACADD 


198 


228 





FORMAT (I2,12,12,12) 
FORMAT (I2,' Looe yen Ny EO gta, LOY TOY 
READ (1,18)MON1,MON2,KLON1,KLON2 
IN1=MON1*KLON2+KLONL*HON2 
IN2=MON2*KLON2 
IF(IN2) 119,296,119 
IGcr=1 
_ DO 1g% J=2,INL 
IF (IN1-IN1/3*3) 199,129,199 
IF (IN2-IN2/3*d) 199,139,169 
IGCR=3, ~ 
CONTINUE iy 
IT1L=INL/IGCF 
IT2=IN2/IGCF 
WRITE (3,2) MON1,MON2,KLONL,KLON2,IT1,IT2 
GOTO 99g 
STOP 
END 
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Lo 


4) 


Write a program to test if a number is prime. 
E 


PRIMETEST 
ig FORMAT (14) 
2¢ FORMAT (I4," IS PRIME") 
3g FORMAT (I4,' IS NOT PRIME") 
READ (1,18) NUM 
K=SQRT (FLOAT (NUM) ) 
DO 49 L=2,K 
IF(NUM-NUM/L*L) 49,598,498 
4g CONTINUE 
WRITE (3,28) NUM 
STOP 
52 WRITE (3,39) NUM 
STOP 
END 
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5) Write a program to find the first 25 prime numbers. 


PRIMES 
1g FORMAT (' PRIME NUMBER ',I2,' IS ',23) 
, KOUNT=1 
NUM=2 
WRITE (3,19) KOUNT ,NUM 
DO -109 NUM=3, 2989 ,2 
KSTOP=IFIX (SQRT (FLOAT (NUM) ) ) 
DO 8% K=3,KSTOP,2 
Ir (NUM-NUM/K*K) 89,199,892 
8¢ CONTINUE . 
KOUNT=KOUNT+1 
WRITE (3,19) KOUNT ,NUM 
IF (KOUNT-25) 199,119,119 
198 . CONTINUE 
11g ©. stop oe 
END / 
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aise 


6) 


Earning 58 interest compounded quartxc 
will it take for a 2f/ dollar investmen 








to grow, to 


over 1f§ dollars if all interest is reinvested. 


INTEREST 









199 FORMAT (F5.2,F9.2) 
BAL 9.88 
TIME=8.9 
1g. BAL=BAL+.95*.25*BAL 
TIME=TIME+.25 
IF (BAL~188.9) 19,198,298 
228 WRITE (3,199) TIME, BAL 


- STOP 
END . 


7) he tire on a 1972 gray-green Ford Pinto has a 
diameter of 16.5 inches.” How many times will this 
tire revolve on a 4% mile trip? 


TIRE 

1g FORMAT (F19.3,! REVOLUTIONS ') 
DIAM=16.5 
TIRE=DIAM*3,14159 
TRIP=49.6*5289. 912.9 
REV=TRIP/TIRE 
WRITE (3,18) REV 
STOP 
END 


ve 
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8) Write a program to find the le 


ast common multiple 
of two input integers, 


LCM 
1g FORMAT (I2,12) 


29 FORMAT (' THE LEAST COMMON MULTIPLE OF -',12,' AND ' 722," 


READ (1,18) LCM1,LCM2 

DO 39 INK=1,LCM2 

IMP=INK*LCM1 

IF (IMP~IMP/LCM2*LCM2) 39,49,39 
39 CONTINUE 
49. WRITE (3,28) LCM1,LCM2,IMP 

STOP 

END 
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> 


$) Write a program to convert a number of 
into a number of days, hours, minutes, 
For example 189489 seconds= ledayy #3 
utes and 49 seconds, 


seconds 
and seconds, 
hours 46 min- 


SECONDS : 
189 FORMAT(I6,' SECONDS ="//I2,' DAYS'/I2,' HOURS') 
22 FORMAT(I2,’ MINUTES'/I2,' SECONDS'//) 


388 FORMAT (16) 
READ (1,399) ITIME 
LPIME 








NHOUR=9 
NDAY=9 mS 
9 IF (ITIME-IDAY) 19,11,11 


‘al NDAY=NDAY+1 
ITIME=ITIME-IDAY 
Goro 9 
1g IF (ITIME-IHOUR) 13,12,12 
12. - NHOUR=NHOUR+1 
ITIME=ITIME-IHOUR 
Goro 1g 
13 IF (ITIME-IMIN) 15,14,14 
14 -NMIN=NMIN+L 
ITIMESITIME-IMIN 
GOTO 13 
15 WRITE (3,199) ITIME1,NDAY,NHOUR 
WRITE (3,298) NMIM,TPINE 
STOP 
END 
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19) 


The value of a new car decreases by about 2% per 
year. Design and run a program that will print a 
table of the car's value every year between the year 
of purchase and 1975, 


FORMAT (' TYPE IN THE YEAR OF PURCHASE AND THE PURCHASE PRICE’) 
FORMAT(' YEAR',1I6,' VALUE',F12,2) 

FORMAT (I14,F9,2) 

WRITE (3,199) 

READ (1,289) IYEAR,VAL 

DO 399 INK=IYEAR,1975 
WRITE (3,159) INK,VAL F ee 
VAL=VAL~. 2$*VAL i 

STOP 

END 


iS) 


11) Binary is base two, All numbers in binary have 
only zeroes and ones for digits W @ a FORTRAN 





) 


program to convert any 4 digit DOSTEAGE integer to 


binary. 


BINARY 


1g 
29 


98 


95 
19% 


FORMAT (14) 
FORMAT (I2) 
READ (1,19) IBASE 
IDIV=2**14 
DO 189 J=1,14 
pa “TDIV/2 

_ If (IBASE-IDIV) 95, of, 9g 
Bs IBASE-IDIV 
ISPLAT=1 
GOTO 18% 
ISPLAT=9 2 
WRITE (3,2) ISPLAT 
STOP 
END 


38 


this program is also for problem 11, but it will 
only run on the 2$P§C/F version. 


BINARYC/F 
1g FORMAT (14) 
29 FORMAT ('#',I1) 
READ (1,1) IBASE 
IDIV=2**14 > 
BO ig J=1,14 
IDIV=IDIV/2 
Ir (IBASE-IDIV) 95,928,929 
98 |° ‘IBASESIBASE-IDIV 
ISPLAT=1 
- GOTO 199 
95 ISPLAT=$ = 
/ ¢ “398 WRITE(3,2@) ISPLAT 
S'TOP 
END 








eis 





12) Using the equation PV=nRr, where 
P=pressure in torr 
“ V=volume in liters 
( a n=number of molecules, in moles 











emperature in degrees absolute 






as tr 








R=62.4 torr-liter/mole-degree (the gas constant) 


RTRAN program that finds the change in pressure 
perature goes from 27% to 359 degrees in steps 


of 18. Assume a 3f liter volume and 1.5 moles of gas 


molecules. 


CHEM-1A 
18. FORMAT (' TEMPERATURE PRESSURE") 
2g FORMAT (5X,F4.0,15X,F1g.4) 
WRITE (3,12) 
XMOLES=1,.5 
VOLUME=39 . 3 ra 
GASCON=62.4 
¢ DO 198 ITEMP=279,359,1¢9 
{ ’ TEMP=FLOAT (ITEMP) 
PRESS=XMOLES*GASCON* TEMP /VOLUME 
WRITE (3, 29) TEMP , PRESS 
1gg CONTINUE 
STOP 
END 





ae) 


32 


13) Using the formula 
= ARGNO, + CaCl, -> Catt + 2NO5 + 2agc1 
€- find the amount of AgCl produced for a given amount 
wy of AgNO, and CaCl,. All amounts are in moles. 
Assume the proportionally smaller amount will 
determine the yield, 


CHEM-15 
1g FORMAT (' AMOUNT OF SILVER NITRATE') 
29 PORMAT (F1g. 2) 
38 FORMAT (' AMOUNT OF CALCIUM CHLORIDE') 
4g FORMAT (F1g.2) 
5 58 PORMAT(F12.5,' MOLES OF SILVER CHLORIDE PRODUCED. ') 
WRITE (3,19) 
READ (1,28) SIL 
WRITE (3,32) : os 
READ (1, 4%) CHLOR 
IF (.5*SIL-CHLOR) 199,199,119 
i 1f% WRITE(3,5$) SIL 
STOP 
11g 9 ANT=2.*CHLOR 
WRITE (3,59) AMT 
STOP 
END 
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14) 


Given that the acceralaion due to gravity is 

~18.§ meters/sec-sec, print a table of the height 
of a projectile fired straight up at an input 
velocity. Use two second intervals, and stop the 
table when the projectile strikes the ground. Use 
the formula devs t+fat*, 





PROJECTILE 


ig 


11g 


FORMAT (' VELOCITY UPWARD IN METERS/SEC') 

FORMAT (F12. 2) 

FORMAT (///' TIME HEIGHT’) 
FORMAT (' ",F4.9,° * ,F1g.3) 
FORMAT (/' PROJECTILE HAS STRUCK THE GROUND.') 
WRITE (3,19) 
READ (1,28) VEL 
WRITE (3,3) 
TIME=9.9 :: 
DIS=9.8 

WRITE (3,49) TIME ,DIS 
TIME=TIME+2, 

DIS=VEL* TIME-5,.*TIME**2, 
IF (DIS) 119,119,199 

WRITE (3,58) 

STOP 

END 


34 


No 


ay 


15) 


Input the angle from horizontal and the velocity, then 
determine the distance from the original position a 
projectile will strike the ground. 


FORMAT (' VELOCITY IN METERS/SEC') 

FORMAT (F19.2) ; 

FORMAT (’ ANGLE FROM HORIZONTAL IN DEGREES') 

FORMAT (F5. 2) 

FORMAT (' PROJECTILE LANDED ',F1.4,' METERS DOWN RANGE’) 
WRITE (3,1) 

READ (1,28) VELO 

WRITE (3,32) 

READ (1, 48) ANGLE 

IF (ANGLE) 199,199,119 

IF (ANGLE-99.) 129,169,199 
RADANG=ANGLE*3.14159/18¢. _ 
TIME=VELO*SIN (RADANG) /5. 9 
DIS=COS (RADANG) *VELO*TIME 
WRITE (3,58) DIS 

STOP 

END 


> 


tC” 


16) 


Write a cash register program. The clerk using the 


register gets a 1f{% commission for all a sales. She 
uses the following codes 
§ = stop and print out total sales and 


commissions. 
Write up a sale. 
Write a refund. 


ls 
2 


She gets commissions on all sales and she is not docked 
for refunds. After she types 1 or 2 she will input the 
value of the sale or refund, 


STORE 
1g FORMAT (' CODE--') 
29 FORMAT (12) 
39 FORMAT (' VALUE--') aes 
49 FORMAT (' TOTAL SALES = $',F7.2 
5g FORMAT ('’ COMMISSION = $',F7.2 
45 FORMAT (F7, 2) 
SALES=9. 
COMMIS=¢. 
1¢g WRITE (3,19) 
READ (1,2) IJOB 
IF (IUJOB-2) 299,399,499 
29%  WRITE(3,4f) SALES 
: WRITE (3,5) COMMIS 
STOP 
366 WRITE (3,32) 
READ (1,45) VALUE 
SALES=SALES+VALUE 
COMMIS=COMMIS+VALUE/19. 
GOTO 169 
499 WRITE (3,39) 


READ (1,45) VALUE 
SALES=SALES-VALUE 
GOTO 189 

END 


36 


Cy 


a 





17) Given the time of day on a 24 hour cloc 
the nun 
out the time in that city. Include + or - 1 day, if 
appropriate, Ignore the international date line. 





and 
y is, print 





x of time zones away a givon ci 


TIMEZONE 


1g9 
298 
292 
202 
203 
24 
295 


286. 


FORMAT (F5.2,13) . 

FORMAT (I3,' TIME ZONES TO THE ') 

FORMAT (' WEST,') 

FORMAT (' EAST,') 

FORMAT(' IT IS NOW ',F5.2," OCLOCK *) 
FORMAT (' YESTERDAY.') 

FORMAT (' TODAY.') 

FORMAT (' TOMORROW. ') 

READ (1,189) TIME,IZONE 

IF (IABS (IZONE)-24) 18,19,29¢9 
IZONE1=IABS (ZONE) ~ 

IZONE 
IF(LZONE) 29,21,29 
IZONE2=IZONE/IABS (IZONE) 
WRITE (3,289) IZONE 

IF (IZONE2) 22,22,24 

WRITE (3,291) 

GOTO 23 

WRITE (3,282) 
TIME1=TIME+FLOAT (IZONE) 
IF(TIMEL) 25,26,26 
TIME1=24.99+TIMEL 
NUM=-1 

GOTO 39 

IF (TIME1-24.99) 27,28,28 
NUM=9 

GOTO 3g 
TIME1L=TIME1~24. 69 

NUM=1 

WRITE (3,293) TIMEL 
IF(NUM) 31,32,33 

W. B (3,294) 

STOP 

WRITE (3,295) 

STOP 

WRITE (3,296) 

STOP 

END 
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8) oe 
using the eR EE formula 


s 


he square root of a number S can be approximated 





(R= Xi as 
Nie > 


Where X is an approximation of the Square root of 


- Write a FORTRAN program to find the square 


root of an input value to within .#1% error. 
Do not use the square root function, 


_ FORMAT (' ENTER VALUE") 


FORMAT (F12.5) 

FORMAT (' THE SQUARE ROOT OF ',F12.5,' IS ',F12.7) 
WRITE (3,12) ? 

READ (1,29) VALX > 

SQROTX=VALX/4. 

SQROTX= (SQROTX**2,+VALX) / (2. 9*SQROTX) 

IF (ABS (1. $-VALX/SQROTX**2.)~-, LEBEL) 366, 288 , 209 
WRITE (3,38) VALX, SQROTK 

STOP 

END 
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19) 


SINE 
1g 
2g 


he sine of an angle can be approximated using the 
series 








where » is an angle in radians, Remembering that 
sin(x)*+cos(x)*=1, find the sine and cosine of 
the angles §, 1f, 28, 39, 49, 50, 68, 7%, 8, and 
98 degrees. 


_ FORMAT(' SINE OF',13,' DEGREES IS.',F9.6) 

. FORMAT(' COSINE OF',I3,' DEGREES IS ',F9.6) 
y=3.1415926/18, 
X=-¥ : 
DO 118 I=9,98,19 
X=X+Y ~ 
SGN=-1.9 
SINX=X 
FACT=6.9 
FACTM=3.9 
OLDSIN=1.9 
SINX=SINX+ (SGN*X**FACTM/FACT) 
IF (ABS (SINX-OLDSIN) ~. #9981) 199,189,192 
FPACTM=FACTM+2.9 
FACT=FACT* (FACTM-1,9) *FACTM 
OLDSIN=SINX 
SGN=-SGN 
GOTO 191 
COSX=SQRT (ABS (1. 8-SINX**2.9)) 
WRITE (3,19) 1,SINX 
WRITE (3, 2f)1,COSX 
CONTINUE 
STOP 
END 








39) 


2()) 


Write a FORTRAN program to solve Lixr 
taneous equations of two variables, 





. degree 


SIMLUT 
“1g FORMAT (' THIS PROGRAM SOLVES SIMULTANEOUS EQAUTIONS OF TWO’) 
2g FORMAT (' VARIABLES. THE EQUATIONS MUST BE OF THE FORM') 
39 FORMAT (/? AX+BY=C'/? DX+EY=F ') 
46 FORMAT (' TYPE IN A, B, AND C. (USE 5 SPACES EACH) ') 
58 FORMAT(' TYPE IN D, E, AND F,") 
68 FORMAT (3F5.9) 
72 FORMAT (//* X=',F18.5/' Y=',F1g.5) 
-89 . FORMAT(' THE EQUATIONS ARE DEPENDENT. ') 
WRITE (3,12) 
WRITE (3,22) 
WRITE (3,32) 
WRITE (3,42) 
READ (1,69)A,B,C ° a 
WRITE (3,59) f 2 
READ (1,69)D,E,F 
. IF (E*A-D*B) 197, 299,199 
188 ° X=(C*E-B*P) / (E*A-D*B) 
Y= (A*F-D*C) /(E*A-D*B) 
WRITE (3,78) X,¥ 
STOP 
298  WRITE(3,82) 
STOP 
END 


48 


